home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 3
/
Info_Mac_1994-01.iso
/
Applications
/
Address Book 3.6.5
/
AdBk Utilities
/
H⁄C Addr to Text 1.5
/
background_2665.txt
< prev
next >
Wrap
Text File
|
1990-08-06
|
7KB
|
275 lines
-- background: 2665 from stack: in.5
-- bmap block id: 2402
-- flags: 0000
-- background id: 0
-- name:
-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=365 top=146 right=164 bottom=431
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: message
-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=20 top=37 right=71 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
visual effect iris close
go "Home"
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=450 top=35 right=69 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address
----- HyperTalk script -----
on mouseUp
visual effect zoom open
go to stack "Address"
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=413 top=28 right=61 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Do it!
----- HyperTalk script -----
on mouseup
show card field "about" at 255,170
end mouseup
-- part 12 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=261 top=146 right=164 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rec_del
-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=314 top=188 right=238 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Convert Address to Text
----- HyperTalk script -----
on mouseUp
hide msg
put empty into field "message"
push card
if hilite of Background button "CR" is true then
put Return into field "rec_del"
else if hilite of Background button "Tab" is true then
put Tab into field "rec_del"
end if
put field "rec_del" into record_del
if hilite of card button "CR" is true then
put Return into field "field_del"
else if hilite of card button "Tab" is true then
put Tab into field "field_del"
end if
put field "field_del" into field_del
If field "Rec_del" is empty then
answer "You have not entered a Record Deliminater." with "OK"
exit mouseup
end if
If field "Field_del" is empty then
answer "You have not entered a Field Deliminater." with "OK"
exit mouseup
end if
If field_del = record_del then
answer "Record and Field Delims can't be the same." with "OK"
exit mouseup
end if
set cursor to 4
open file "Add->Text"
put empty
show message window at 19,298
set lockscreen to true
go to address
put the number of cards into cardnumber
put "Getting Addresses - Cards to go:" && cardnumber into msg
Repeat for cardnumber
put cardnumber into last word of msg
put 0 into linenumber
put 0 into wordnumber
repeat for the number of lines of field 1
add one to linenumber
If linenumber = 1 then
Put the number of words of line 1 of field 1 into wordnumber
If wordnumber = 0 then
write field_del & field_del to file "Add->Text"
else if wordnumber = 1 then
write field_del & word 1 of line 1 of field 1 & field_del to file "Add->Text"
else if wordnumber = 2 then
write word 1 of line 1 of field 1 & field_del & word 2 of line 1 of field 1 & field_del to file "Add->Text"
else if wordnumber > 2 then
write word 1 to wordnumber - 1 of line 1 of field 1 & field_del & last word of line 1 of field 1 & field_del to file "Add->Text"
end if
else
write line linenumber of field 1 & field_del to file "Add->text"
end if
end repeat
If linenumber < 7 then
repeat for 7 - linenumber
write field_del to file "Add->Text"
end repeat
end if
put 0 into linenumber
repeat for the number of lines of field 2
add one to linenumber
write line linenumber of field 2 & field_del to file "Add->Text"
end repeat
If linenumber < 3 then
repeat for 3 - linenumber
write field_del to file "Add->Text"
end repeat
end if
write record_del to file "Add->Text"
go next card
subtract 1 from cardnumber
end repeat
close file "Add->Text"
pop card
set lockscreen to false
hide msg
put "All Done!" into field "message"
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=56 top=145 right=165 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CR
----- HyperTalk script -----
on mouseUp
if hilite of me is true then
hide msg
set hilite of background button "Tab" to false
set hilite of background button "Other" to false
end if
end mouseUp
-- part 15 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=129 top=145 right=165 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tab
----- HyperTalk script -----
on mouseUp
if hilite of me is true then
hide msg
set hilite of background button "CR" to false
set hilite of background button "Other" to false
end if
end mouseUp
-- part 16 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=196 top=145 right=165 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other
----- HyperTalk script -----
on mouseUp
if hilite of me is true then
set hilite of background button "CR" to false
set hilite of background button "Tab" to false
put empty into field "rec_del"
click at the location of field "rec_del"
end if
end mouseUp
-- part 17 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=261 top=266 right=284 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Field_del